home *** CD-ROM | disk | FTP | other *** search
/ Archive Magazine CD 1995 / Archive Magazine CD 1995.iso / discs / prog_disc / volume_2 / issue_12 / extras / astronomy / calday < prev    next >
Unknown  |  1988-12-06  |  1.6 KB
open in: MacOS 8.1     |     Win98     |     DOS

view JSON data     |     view as text


This file was not able to be converted.
This format is not currently supported by dexvert.

ConfidenceProgramDetectionMatch TypeSupport
10% dexvert Truevision Targa Graphic (image/tga) magic Supported
100% file data default
100% xdgMime image/x-tga default (weak)


hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 18 20 f4 20 20 | 20 2a 2a 20 20 3e 43 41 |.... .  | **  >CA|
|00000010| 4c 44 41 59 20 20 2a 2a | 0d 00 14 06 20 db 0d 00 |LDAY  **|.... ...|
|00000020| 1e 95 20 f1 27 27 8a 35 | 29 3b 22 54 68 69 73 20 |.. .''.5|);"This |
|00000030| 72 6f 75 74 69 6e 65 20 | 63 6f 6e 76 65 72 74 73 |routine |converts|
|00000040| 20 74 68 65 20 6e 75 6d | 62 65 72 20 6f 66 20 4a | the num|ber of J|
|00000050| 75 6c 69 61 6e 20 64 61 | 79 73 20 73 69 6e 63 65 |ulian da|ys since|
|00000060| 20 31 39 30 30 20 4a 61 | 6e 20 30 2e 35 20 20 20 | 1900 Ja|n 0.5   |
|00000070| 20 20 20 20 20 20 20 20 | 20 20 20 69 6e 74 6f 20 |        |   into |
|00000080| 74 68 65 20 63 61 6c 65 | 6e 64 61 72 20 64 61 74 |the cale|ndar dat|
|00000090| 65 2c 20 74 68 65 20 69 | 6e 76 65 72 73 65 20 66 |e, the i|nverse f|
|000000a0| 75 6e 63 74 69 6f 6e 20 | 6f 66 20 4a 55 4c 44 41 |unction |of JULDA|
|000000b0| 59 2e 22 0d 00 28 06 20 | 3a 0d 00 32 0e 20 de 20 |Y."..(. |:..2. . |
|000000c0| 46 4c 41 47 28 32 29 0d | 00 3c 0e 20 46 4c 41 47 |FLAG(2).|.<. FLAG|
|000000d0| 28 30 29 3d 31 0d 00 46 | 27 20 f1 27 27 27 22 4a |(0)=1..F|' .'''"J|
|000000e0| 75 6c 69 61 6e 20 64 61 | 79 73 20 74 6f 20 63 61 |ulian da|ys to ca|
|000000f0| 6c 65 6e 64 61 72 20 64 | 61 74 65 22 0d 00 50 10 |lendar d|ate"..P.|
|00000100| 20 f1 3a 46 4c 41 47 28 | 32 29 3d 30 0d 00 5a 25 | .:FLAG(|2)=0..Z%|
|00000110| 20 e8 22 43 6f 6e 76 65 | 72 74 20 4a 44 20 28 31 | ."Conve|rt JD (1|
|00000120| 29 20 6f 72 20 44 4a 44 | 20 28 32 29 22 3b 41 4e |) or DJD| (2)";AN|
|00000130| 53 0d 00 64 12 20 e7 20 | 41 4e 53 3d 31 20 8c 8d |S..d. . |ANS=1 ..|
|00000140| 74 42 40 0d 00 6e 25 20 | e8 22 4a 20 64 61 79 73 |tB@..n% |."J days|
|00000150| 20 73 69 6e 63 65 20 31 | 39 30 30 20 4a 61 6e 20 | since 1|900 Jan |
|00000160| 30 2e 35 22 3b 44 4a 44 | 0d 00 78 0b 20 e5 20 8d |0.5";DJD|..x. . .|
|00000170| 74 56 40 0d 00 82 16 20 | e8 22 4a 75 6c 69 61 6e |tV@.... |."Julian|
|00000180| 20 64 61 74 65 22 3b 4a | 44 0d 00 8c 13 20 44 4a | date";J|D.... DJ|
|00000190| 44 3d 4a 44 2d 32 34 31 | 35 30 32 30 0d 00 96 15 |D=JD-241|5020....|
|000001a0| 20 f2 43 61 6c 64 61 79 | 3a 49 44 3d a8 28 44 59 | .Calday|:ID=.(DY|
|000001b0| 29 0d 00 a0 2b 20 f1 22 | 43 61 6c 65 6e 64 61 72 |)...+ ."|Calendar|
|000001c0| 20 64 61 74 65 20 69 73 | 3a 20 22 3b 49 44 3b 22 | date is|: ";ID;"|
|000001d0| 2f 22 3b 4d 4e 3b 22 2f | 22 3b 59 52 0d 00 aa 19 |/";MN;"/|";YR....|
|000001e0| 20 58 3d 46 2a 32 34 3a | 53 57 31 3d 31 3a f2 4d | X=F*24:|SW1=1:.M|
|000001f0| 69 6e 73 65 63 0d 00 b4 | 2b 20 f1 22 20 2e 2e 2e |insec...|+ ." ...|
|00000200| 20 61 6e 64 20 74 69 6d | 65 20 69 73 3a 20 22 3b | and tim|e is: ";|
|00000210| 58 44 3b 22 3a 22 3b 58 | 4d 3b 22 3a 22 3b 58 53 |XD;":";X|M;":";XS|
|00000220| 0d 00 be 06 20 f1 0d 00 | c8 17 20 e8 22 41 67 61 |.... ...|.. ."Aga|
|00000230| 69 6e 20 28 59 2f 4e 29 | 22 3b 41 4e 24 0d 00 d2 |in (Y/N)|";AN$...|
|00000240| 14 20 e7 20 41 4e 24 3d | 22 59 22 20 8c 8d 44 50 |. . AN$=|"Y" ..DP|
|00000250| 40 0d 00 dc 06 20 e0 0d | 00 e6 06 20 3a 0d 00 f0 |@.... ..|... :...|
|00000260| 0d 20 dd f2 4d 69 6e 73 | 65 63 0d 00 fa 1d 20 e7 |. ..Mins|ec.... .|
|00000270| 20 53 57 31 3d 31 20 f2 | 4d 69 6e 73 65 63 5f 49 | SW1=1 .|Minsec_I|
|00000280| 6e 74 65 67 65 72 73 0d | 01 04 1d 20 e7 20 53 57 |ntegers.|... . SW|
|00000290| 31 3d 2d 31 20 f2 4d 69 | 6e 73 65 63 5f 44 65 63 |1=-1 .Mi|nsec_Dec|
|000002a0| 69 6d 61 6c 0d 01 0e 06 | 20 e1 0d 01 18 06 20 3a |imal....| ..... :|
|000002b0| 0d 01 22 16 20 dd f2 4d | 69 6e 73 65 63 5f 49 6e |..". ..M|insec_In|
|000002c0| 74 65 67 65 72 73 0d 01 | 2c 1d 20 53 4e 3d b4 28 |tegers..|,. SN=.(|
|000002d0| 58 29 3a 58 50 3d 94 28 | 58 29 3a 58 44 3d a8 28 |X):XP=.(|X):XD=.(|
|000002e0| 58 50 29 0d 01 36 19 20 | 41 3d 28 58 50 2d 58 44 |XP)..6. |A=(XP-XD|
|000002f0| 29 2a 36 30 3a 58 4d 3d | a8 28 41 29 0d 01 40 1c |)*60:XM=|.(A)..@.|
|00000300| 20 58 53 3d a8 28 28 41 | 2d 58 4d 29 2a 36 30 30 | XS=.((A|-XM)*600|
|00000310| 2b 30 2e 35 29 2f 31 30 | 0d 01 4a 0b 20 53 24 3d |+0.5)/10|..J. S$=|
|00000320| 22 2b 22 0d 01 54 16 20 | e7 20 53 4e 3d 2d 31 20 |"+"..T. |. SN=-1 |
|00000330| 20 8c 20 53 24 3d 22 2d | 22 0d 01 5e 06 20 e1 0d | . S$="-|"..^. ..|
|00000340| 01 68 06 20 3a 0d 01 72 | 15 20 dd f2 4d 69 6e 73 |.h. :..r|. ..Mins|
|00000350| 65 63 5f 44 65 63 69 6d | 61 6c 0d 01 7c 0a 20 53 |ec_Decim|al..|. S|
|00000360| 4e 3d 2b 31 0d 01 86 21 | 20 e7 20 58 44 3c 30 20 |N=+1...!| . XD<0 |
|00000370| 84 20 58 4d 3c 30 20 84 | 20 58 53 3c 30 20 8c 20 |. XM<0 .| XS<0 . |
|00000380| 53 4e 3d 2d 31 0d 01 90 | 22 20 58 44 31 3d 94 28 |SN=-1...|" XD1=.(|
|00000390| 58 44 29 3a 58 4d 31 3d | 94 28 58 4d 29 3a 58 53 |XD):XM1=|.(XM):XS|
|000003a0| 31 3d 94 28 58 53 29 0d | 01 9a 23 20 58 3d 28 28 |1=.(XS).|..# X=((|
|000003b0| 28 28 58 53 31 2f 36 30 | 29 2b 58 4d 31 29 2f 36 |((XS1/60|)+XM1)/6|
|000003c0| 30 29 2b 58 44 31 29 2a | 53 4e 0d 01 a4 06 20 e1 |0)+XD1)*|SN.... .|
|000003d0| 0d 01 ae 06 20 3a 0d 01 | b8 0d 20 dd f2 43 61 6c |.... :..|.. ..Cal|
|000003e0| 64 61 79 0d 01 c2 12 20 | e7 20 46 4c 41 47 28 32 |day.... |. FLAG(2|
|000003f0| 29 3d 31 20 e1 0d 01 cc | 2c 20 dd a4 4c 49 46 28 |)=1 ....|, ..LIF(|
|00000400| 57 29 3d a8 28 57 29 2d | 28 46 4c 41 47 28 30 29 |W)=.(W)-|(FLAG(0)|
|00000410| 2d 31 29 2a a8 28 28 b4 | 28 57 29 2d 31 29 2f 32 |-1)*.((.|(W)-1)/2|
|00000420| 29 0d 01 d6 1e 20 44 3d | 44 4a 44 2b 30 2e 35 3a |).... D=|DJD+0.5:|
|00000430| 49 3d a4 4c 49 46 28 44 | 29 3a 46 3d 44 2d 49 0d |I=.LIF(D|):F=D-I.|
|00000440| 01 e0 15 20 e7 20 46 3d | 31 20 8c 20 46 3d 30 3a |... . F=|1 . F=0:|
|00000450| 49 2b 3d 31 0d 01 ea 1a | 20 e7 20 49 20 3c 3d 20 |I+=1....| . I <= |
|00000460| 2d 31 31 35 38 36 30 20 | 8c 20 8d 54 48 42 0d 01 |-115860 |. .THB..|
|00000470| f4 29 20 41 3d a4 4c 49 | 46 28 28 49 2f 33 36 35 |.) A=.LI|F((I/365|
|00000480| 32 34 2e 32 35 29 2b 39 | 2e 39 38 33 35 37 32 36 |24.25)+9|.9835726|
|00000490| 45 2d 31 29 2b 31 34 0d | 01 fe 16 20 49 3d 49 2b |E-1)+14.|... I=I+|
|000004a0| 31 2b 41 2d a4 4c 49 46 | 28 41 2f 34 29 0d 02 08 |1+A-.LIF|(A/4)...|
|000004b0| 22 20 42 3d a4 4c 49 46 | 28 28 49 2f 33 36 35 2e |" B=.LIF|((I/365.|
|000004c0| 32 35 29 2b 38 2e 30 32 | 36 30 31 45 2d 31 29 0d |25)+8.02|601E-1).|
|000004d0| 02 12 29 20 43 45 3d 49 | 2d a4 4c 49 46 28 28 33 |..) CE=I|-.LIF((3|
|000004e0| 36 35 2e 32 35 2a 42 29 | 2b 37 2e 35 30 30 30 31 |65.25*B)|+7.50001|
|000004f0| 45 2d 31 29 2b 34 31 36 | 0d 02 1c 1e 20 47 3d a4 |E-1)+416|.... G=.|
|00000500| 4c 49 46 28 43 45 2f 33 | 30 2e 36 30 30 31 29 3a |LIF(CE/3|0.6001):|
|00000510| 4d 4e 3d 47 2d 31 0d 02 | 26 26 20 44 59 3d 43 45 |MN=G-1..|&& DY=CE|
|00000520| 2d a4 4c 49 46 28 33 30 | 2e 36 30 30 31 2a 47 29 |-.LIF(30|.6001*G)|
|00000530| 2b 46 3a 59 52 3d 42 2b | 31 38 39 39 0d 02 30 17 |+F:YR=B+|1899..0.|
|00000540| 20 e7 20 47 3e 31 33 2e | 35 20 8c 20 4d 4e 3d 47 | . G>13.|5 . MN=G|
|00000550| 2d 31 33 0d 02 3a 19 20 | e7 20 4d 4e 3c 32 2e 35 |-13..:. |. MN<2.5|
|00000560| 20 8c 20 59 52 3d 42 2b | 31 39 30 30 0d 02 44 13 | . YR=B+|1900..D.|
|00000570| 20 e7 20 59 52 3c 31 20 | 8c 20 59 52 2d 3d 31 0d | . YR<1 |. YR-=1.|
|00000580| 02 4e 0e 20 46 4c 41 47 | 28 32 29 3d 31 0d 02 58 |.N. FLAG|(2)=1..X|
|00000590| 06 20 e1 0d 02 62 06 20 | 3a 0d 02 6c 3d 20 f4 20 |. ...b. |:..l= . |
|000005a0| 41 63 6b 6e 6f 77 6c 65 | 64 67 65 6d 65 6e 74 3a |Acknowle|dgement:|
|000005b0| 20 41 53 54 52 4f 4e 4f | 4d 59 20 57 49 54 48 20 | ASTRONO|MY WITH |
|000005c0| 59 4f 55 52 20 50 45 52 | 53 4f 4e 41 4c 20 43 4f |YOUR PER|SONAL CO|
|000005d0| 4d 50 55 54 45 52 0d 02 | 76 2b 20 f4 20 20 20 20 |MPUTER..|v+ .    |
|000005e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 50 65 |        |      Pe|
|000005f0| 74 65 72 20 44 75 66 66 | 65 74 74 2d 53 6d 69 74 |ter Duff|ett-Smit|
|00000600| 68 0d 02 80 38 20 f4 20 | 20 20 20 20 20 20 20 20 |h...8 . |        |
|00000610| 20 20 20 20 20 20 20 20 | 20 43 61 6d 62 72 69 64 |        | Cambrid|
|00000620| 67 65 20 55 6e 69 76 65 | 72 73 69 74 79 20 50 72 |ge Unive|rsity Pr|
|00000630| 65 73 73 20 20 31 39 38 | 35 0d 02 8a 2d 20 f4 20 |ess  198|5...- . |
|00000640| 41 64 61 70 74 65 64 20 | 62 79 3a 20 20 20 20 20 |Adapted |by:     |
|00000650| 20 44 41 41 46 20 44 75 | 6c 77 69 63 68 20 44 65 | DAAF Du|lwich De|
|00000660| 63 20 31 39 38 38 0d ff |                         |c 1988..|        |
+--------+-------------------------+-------------------------+--------+--------+